(tool-bar-make-keymap): Additional minor fix.

diff --git a/lisp/tool-bar.el b/lisp/tool-bar.el
index 48ad887ddd19a4c1bd40d7d0647e0564a780ff0f..c47cab0af407f93548a4d8dc018ab829d82154f8 100644 (file)
--- a/lisp/tool-bar.el
+++ b/lisp/tool-bar.el
@@ -106,7 +106,7 @@ color capability and based on the available image libraries."
                (if (not (display-images-p))
                    (setq bind nil)
                  (let ((image (eval image-exp)))
-                   (unless (image-mask-p image)
+                   (unless (and image (image-mask-p image))
                      (setq image (append image '(:mask heuristic))))
                    (setq bind (copy-sequence bind)
                          plist (nthcdr (if (consp (nth 4 bind)) 5 4)